home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 11 / QRZ Ham Radio Callsign Database - Volume 11.iso / files / library / logos.txt < prev    next >
Encoding:
Internet Message Format  |  1998-02-02  |  9.3 KB
  1. Path: news.unomaha.edu!unlinfo.unl.edu!wupost!uunet!decwrl!pa.dec.com!nntpd.lkg.dec.com!koning.enet.dec.com!koning
  2. From: koning@koning.enet.dec.com (Paul Koning)
  3. Newsgroups: rec.radio.amateur.misc
  4. Subject: Fixed PostScript logos
  5. Message-ID: <31060@nntpd.lkg.dec.com>
  6. Date: 3 Dec 91 21:51:40 GMT
  7. Sender: news@nntpd.lkg.dec.com
  8. Reply-To: koning@koning.enet.dec.com
  9. Organization: Digital Equipment Co., distributed systems architecture
  10. Lines: 304
  11.  
  12.  
  13. Some time ago I posted an assortment of PostScript ham-related logos.
  14. Then Rick Mobley (rick@lrark.UUCP) pointed out some problems with
  15. the bounding box, so I went back and checked them.  Two indeed had
  16. (dumb) mistakes in the bounding box, and a third had a glitch.  So
  17. here are fixed editions of three logos: ARES, ARRL special service club,
  18. and QRP International.
  19.  
  20.     73, paul, ni1d
  21. ========================
  22. %!PS-Adobe-2.0 EPSF-1.2
  23. %%BoundingBox: -3 -3 151 151
  24. %%Creator: Paul Koning
  25. %%Title: ARRL ARES logo
  26. %%CreationDate: 89.12.21
  27. %%EndComments
  28. %
  29. % The ARES logo
  30. %
  31. % The code below defines a PostScript function "ares-logo" which, when
  32. % invoked, paints the ARES logo at the current x/y.  The resulting
  33. % image is 148 points square, in other words a hair over 2 inches.
  34. %
  35. %    paul koning, 89.12.21 - created from the arrl diamond logo
  36. %             91.01.15 - fixed bug (stuff left on stack by arcto)
  37. %             91.12.03 - fixed bounding box
  38. %
  39.  
  40. /bolt
  41. { newpath 0 0 moveto 22 -2 lineto 13 -7 lineto 32 -10 lineto
  42.   3 -10 lineto 14 -3 lineto closepath fill
  43. } def
  44.  
  45. /cirdict 16 dict def
  46.  
  47. /outsidecircletext
  48. { cirdict begin
  49.   /radius exch def
  50.   /centerangle exch def
  51.   /ptsize exch def
  52.   /str exch def
  53.   /xradius radius ptsize 4 div add def        % adjusted radius
  54.   gsave
  55.   centerangle str findhalfangle add rotate
  56.   str
  57.   { /charcode exch def
  58.     ( ) dup 0 charcode put outsideplacechar
  59.   } forall
  60.   grestore
  61.   end
  62. } def
  63.  
  64. /insidecircletext
  65. { cirdict begin
  66.   /radius exch def
  67.   /centerangle exch def
  68.   /ptsize exch def
  69.   /str exch def
  70.   /xradius radius ptsize 3 div sub def        % adjusted radius
  71.   gsave
  72.   centerangle str findhalfangle sub rotate
  73.   str
  74.   { /charcode exch def
  75.     ( ) dup 0 charcode put insideplacechar
  76.   } forall
  77.   grestore
  78.   end
  79. } def
  80.  
  81. cirdict begin
  82. /findhalfangle
  83. { stringwidth pop 2 div
  84.   2 xradius mul pi mul div 360 mul
  85. } def
  86.  
  87. /outsideplacechar
  88. { /char exch def
  89.   /halfangle char findhalfangle def
  90.   gsave
  91.   halfangle neg rotate
  92.   radius 0 translate
  93.   -90 rotate
  94.   char stringwidth pop 2 div neg 0 moveto
  95.   char show
  96.   grestore
  97.   halfangle 2 mul neg rotate
  98. } def
  99.  
  100. /insideplacechar
  101. { /char exch def
  102.   /halfangle char findhalfangle def
  103.   gsave
  104.   halfangle rotate
  105.   radius 0 translate
  106.   90 rotate
  107.   char stringwidth pop 2 div neg 0 moveto
  108.   char show
  109.   grestore
  110.   halfangle 2 mul rotate
  111. } def
  112.  
  113. /pi 3.1415926536 def
  114. end
  115.  
  116. /ares-logo
  117. { gsave currentpoint translate
  118.   newpath 5 setlinewidth 74 74 74 0 360 arc stroke
  119.   gsave 87.15 89 translate 35 rotate bolt grestore
  120.   gsave 56.905 68 translate 25 rotate -1 1 scale bolt grestore
  121.   gsave 74 74 translate                % set up for circular text
  122.   /Helvetica findfont 14 scalefont setfont
  123.   (AMATEUR RADIO) 14 90 55 outsidecircletext
  124.   (EMERGENCY SERVICE) 14 270 66 insidecircletext
  125.   grestore
  126.   54.275 29 translate 0.616 0.616 scale        % scale for diamond
  127.   2 setlinewidth 1 setlinejoin             % workaround for "spike" bug
  128.   newpath 0 73 moveto
  129.   32 0 64 73 3 arcto pop pop newpath moveto
  130.   32 0 64 73 3 arcto pop pop pop pop
  131.   64 73 32 146 3 arcto pop pop pop pop
  132.   32 146 0 73 3 arcto pop pop pop pop
  133.   0 73 32 0 3 arcto  pop pop pop pop
  134.   closepath stroke                % border for diamond
  135.   0 setlinejoin
  136.   4.5 73 moveto 32 10 lineto 59.5 73 lineto
  137.   32 136 lineto closepath fill            % diamond body
  138.   1 setgray
  139.   gsave 0 111 moveto 64 111 lineto 64 130 lineto 0 130 lineto clip newpath
  140.   1 setlinejoin
  141.   23 104 moveto 32 125 lineto 41 104 lineto
  142.   28 115 moveto 36 115 lineto stroke         % letter A
  143.   grestore
  144.   29 38 moveto 29 26 lineto 36 26 lineto stroke    % letter L
  145.   gsave 0 67 moveto 64 67 lineto 64 90 lineto 0 90 lineto clip newpath
  146.   14 67 moveto 14 82 lineto 18.5 82 lineto 18.5 78.5 3.5 90 -90 arcn
  147.   14 75 lineto 18 75 moveto 24 59 lineto stroke    % left letter R
  148.   44 67 moveto 44 82 lineto 48.5 82 lineto 48.5 78.5 3.5 90 -90 arcn
  149.   44 75 lineto 48 75 moveto 54 59 lineto stroke    % right letter R
  150.   grestore
  151.   1.5 setlinewidth
  152.   31 41 moveto 33 41 lineto
  153.   29.375 43.75 moveto 34.625 43.75 lineto
  154.   27.75 46.5 moveto 36.25 46.5 lineto
  155.   26.125 49.25 moveto 37.875 49.25 lineto
  156.   24.5 52 moveto 39.5 52 lineto            % ground symbol
  157.   32 52 moveto 32 60 lineto
  158.   25 60 25 68 33 68 curveto 39 68 39 64 33 64 curveto
  159.   25 64 25 76 33 76 curveto 39 76 39 72 33 72 curveto
  160.   25 72 25 84 33 84 curveto 39 84 39 80 33 80 curveto
  161.   25 80 25 88 32 88 curveto            % coil
  162.   32 106 lineto 32 96 moveto 25 106 lineto
  163.   39 106 lineto closepath stroke        % antenna
  164.   grestore
  165. } def
  166.  
  167. % display the diamond
  168. 0 0 moveto ares-logo showpage
  169.  
  170. %!PS-Adobe-2.0 EPSF-1.2
  171. %%BoundingBox: -2 -2 188 188
  172. %%Creator: Paul Koning
  173. %%Title: ARRL diamond logo
  174. %%CreationDate: 89.12.20
  175. %%EndComments
  176. %
  177. % The ARRL Special Service Club logo
  178. %
  179. % The code below defines a PostScript function "ssc-logo" which, when
  180. % invoked, paints the ARRL SSC logo at the current x/y.  The resulting
  181. % image is 186 points square, which is 2.58 inches.
  182. %
  183. %    paul koning, 89.12.20 - created, starting from the "diamond" logo
  184. %                    89.01.10 - fixed a few angles
  185. %             89.09.20 - converted to EPSF file
  186. %             91.01.15 - fixed bug (stuff left on stack by arcto)
  187. %             91.12.03 - fixed bounding box
  188. %
  189.  
  190. /ssc-logo
  191. { gsave currentpoint translate newpath
  192.   4 setlinewidth 93 93 93 0 360 arc        % enclosing circle
  193.   gsave stroke grestore clip newpath        % use circle as clip region
  194.   135.8 0 moveto 186 0 lineto 186 186 lineto
  195.   135.8 186 lineto closepath fill            % black region of circle
  196.   1.5 setlinewidth 
  197.   0 124.5 moveto 120 124.5 lineto 140 170.125 lineto stroke
  198.   0 103.5 moveto 115.62 103.5 lineto 140 159.125 lineto stroke
  199.   0 82.5 moveto 115.62 82.5 lineto 140 26.875 lineto stroke
  200.   0 61.5 moveto 120 61.5 lineto 140 15.875 lineto stroke
  201.   /Helvetica findfont 20 scalefont setfont
  202.   22 106.5 moveto (SPECIAL) show
  203.   22 85.5 moveto (SERVICE) show
  204.   40 64.5 moveto (CLUB) show
  205.   115.84 47 translate 0.63 0.63 scale        % scale for the diamond
  206.   2 setlinewidth 1 setlinejoin             % workaround for "spike" bug
  207.   newpath 0 73 moveto
  208.   32 0 64 73 3 arcto pop pop newpath moveto
  209.   32 0 64 73 3 arcto pop pop pop pop
  210.   64 73 32 146 3 arcto pop pop pop pop
  211.   32 146 0 73 3 arcto pop pop pop pop
  212.   0 73 32 0 3 arcto  pop pop pop pop closepath
  213.   gsave 1 setgray fill grestore            % erase inside of diamond
  214.   stroke                    % border for diamond
  215.   0 setlinejoin
  216.   gsave 0 111 moveto 64 111 lineto 64 130 lineto 0 130 lineto clip newpath
  217.   1 setlinejoin
  218.   23 104 moveto 32 125 lineto 41 104 lineto
  219.   28 115 moveto 36 115 lineto stroke         % letter A
  220.   grestore
  221.   29 38 moveto 29 26 lineto 36 26 lineto stroke    % letter L
  222.   gsave 0 67 moveto 64 67 lineto 64 90 lineto 0 90 lineto clip newpath
  223.   14 67 moveto 14 82 lineto 18.5 82 lineto 18.5 78.5 3.5 90 -90 arcn
  224.   14 75 lineto 18 75 moveto 24 59 lineto stroke    % left letter R
  225.   44 67 moveto 44 82 lineto 48.5 82 lineto 48.5 78.5 3.5 90 -90 arcn
  226.   44 75 lineto 48 75 moveto 54 59 lineto stroke    % right letter R
  227.   grestore
  228.   1.5 setlinewidth
  229.   31 41 moveto 33 41 lineto
  230.   29.375 43.75 moveto 34.625 43.75 lineto
  231.   27.75 46.5 moveto 36.25 46.5 lineto
  232.   26.125 49.25 moveto 37.875 49.25 lineto
  233.   24.5 52 moveto 39.5 52 lineto            % ground symbol
  234.   32 52 moveto 32 60 lineto
  235.   25 60 25 68 33 68 curveto 39 68 39 64 33 64 curveto
  236.   25 64 25 76 33 76 curveto 39 76 39 72 33 72 curveto
  237.   25 72 25 84 33 84 curveto 39 84 39 80 33 80 curveto
  238.   25 80 25 88 32 88 curveto            % coil
  239.   32 106 lineto 32 96 moveto 25 106 lineto
  240.   39 106 lineto closepath stroke        % antenna
  241.   grestore
  242. } def
  243.  
  244. % display the diamond
  245. 0 0 moveto ssc-logo showpage
  246.  
  247. %!PS-Adobe-2.0 EPSF-1.2
  248. %%BoundingBox: -14 -15 355 215
  249. %%Creator: PStJTT -- bugfixes 91.01.14 by paul koning
  250. %%Title: QRP ARC Int'l logo
  251. %%CreationDate: 90.09.24
  252. %%EndComments
  253. %
  254. % The QRP ARC International logo
  255. %
  256. % The code below defines a PostScript function "qrp-logo" which, when
  257. % invoked, paints the logo at the current x/y.
  258. %    paul koning,     91.12.03 - fixed glitch (postscript interpreter
  259. %                    bug, actually) on letter "R"
  260. %
  261.  
  262. /qrp-logo
  263. { gsave currentpoint translate
  264.   0 setlinejoin
  265. % First the 'Q/5'
  266.   newpath 
  267.   30 setlinewidth 75 75 75 190 165 arc stroke
  268.   3 99 moveto
  269.   3 200 lineto
  270.   350 200 lineto
  271.   stroke        % stem and horizontal stroke of '5'
  272.   130 20 moveto
  273.   150 0 lineto 
  274.   stroke        % slash on 'Q'
  275.   gsave 155 75 moveto 355 75 lineto 
  276.   355 165 lineto 155 165 lineto clip    % to keep the 'R' diagonal clean
  277.   newpath
  278.   185 75 moveto
  279.   185 150 lineto
  280.   225 130 20 90 270 arcn
  281.   185 110 lineto    % 'P' part of 'R'
  282.   210 110 moveto
  283.   235 65 lineto
  284.   stroke        % diagonal of 'R'
  285. %
  286. % 'P'
  287. %
  288.   280 75 moveto
  289.   280 150 lineto
  290.   320 150 lineto
  291.   320 130 20 90 270 arcn
  292.   280 110 lineto
  293.   stroke
  294.   grestore        % cancel clip region
  295. %
  296. % The "Arrow"
  297. %
  298.   3 setlinewidth
  299.   45 30 moveto
  300.   70 50 lineto
  301.   70 100 lineto
  302.   63 100 lineto
  303.   75 120 lineto
  304.   87 100 lineto
  305.   80 100 lineto
  306.   80 50 lineto
  307.   105 30 lineto
  308.   stroke
  309.  
  310.   grestore } def
  311.  
  312. % display the logo 
  313. 0 0 moveto qrp-logo 
  314. showpage
  315.  
  316.